home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flyinf.dir / 00022_p.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  967 b   |  32 lines
  1. on mouseDown
  2.   global gMovNo, gsliderbar, gPalNo, gVolume
  3.   if the castNum of sprite 15 <> 11 then
  4.     exit
  5.   end if
  6.   if the doubleClick then
  7.     exit
  8.   end if
  9.   if the castType of cast the castNum of sprite 11 = #digitalVideo then
  10.     set the movieTime of sprite 11 to 1
  11.     set the movieRate of sprite 11 to 0
  12.     set the controller of cast the castNum of sprite 11 to 0
  13.   end if
  14.   updateStage()
  15.   set the castNum of sprite 10 to cast getAt(FlyList, 5)
  16.   set gMovNo to the number of cast getAt(FlyList, 7)
  17.   preLoadCast(gMovNo)
  18.   set gPalNo to gMovNo + 10
  19.   puppetPalette(gPalNo)
  20.   patchPal()
  21.   set the castNum of sprite 11 to gMovNo
  22.   set the castNum of sprite 14 to 41
  23.   set the controller of cast gMovNo to gsliderbar
  24.   set the video of cast gMovNo to 1
  25.   set the castNum of sprite 8 to 23
  26.   set the castNum of sprite 7 to 32
  27.   set the castNum of sprite 6 to 21
  28.   updateStage()
  29.   set the movieRate of sprite 11 to 1
  30.   set the volume of sprite 11 to gVolume
  31. end
  32.